home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / cc02.arc / CLEARSCR.C < prev    next >
Text File  |  1986-03-14  |  896b  |  26 lines
  1. This code was taken from Compuserve
  2. /* clear.c          clear the crt
  3.               by earl c. terwilliger jr.
  4.               05-04-1983
  5. */
  6. main()
  7. {
  8. struct regval { int ax,bx,cx,dx,si,di,ds,es; };
  9. struct regval srv,rrv;
  10. srv.cx = 0x0f00;                 /* remove the cursor */
  11. srv.ax = 0x0100;                 /* set cursor type   */
  12. sysint(16,&srv,&rrv);
  13. srv.ax = 0x0600;                 /* scroll & blank      */
  14. srv.cx = 0x0000;                 /* top left      */
  15. srv.dx = 0x184f;                 /* bottom right      */
  16. srv.bx = 0x0700;                 /* fill attribute      */
  17. sysint(16,&srv,&rrv);
  18. sysint(17,&srv,&rrv);                 /* equipment flag      */
  19. srv.bx = srv.ax;                 /* copy it       */
  20. srv.bx = srv.bx & 0x0030;             /* mask for video      */
  21. if (srv.bx == 0x0030) srv.ax = 0x0007;         /* color or bw ?      */
  22. else srv.ax = 0x0002;
  23. sysint(16,&srv,&rrv);                 /* screen back on      */
  24. }
  25. 0) srv.ax = 0x0007;         /* color or bw ?      */
  26. else srv.